home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / scbbs30.arc / BOOT (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  265b  |  12 lines
  1. 10 POKE53280,0:POKE53281,0
  2. 12 PRINTCHR$(14);"[147]"
  3. 14 OPEN1,8,3,"TITLE"
  4. 16 GET#1,X$:PRINTX$;
  5. 18 IFST=0GOTO16
  6. 20 CLOSE1
  7. 22 GETA$:IFA$=""THEN22
  8. 24 IFA$="1"THENPRINT"[147][144]LOAD"CHR$(34)"^SCBBS"CHR$(34)",8,1":GOTO60
  9. 26 IFA$="2"THENPRINT"[147][144]LOAD"CHR$(34)"SETUP"CHR$(34)",8,1":GOTO60
  10. 28 GOTO22
  11. 60 PRINT"RUN";:POKE631,13:POKE632,13:POKE198,2
  12.